home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Scroll_Bars_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  2.8 KB  |  97 lines
  1. VERSION 5.00
  2. Object = "{97AD20E9-36A3-4B89-B554-D7E13BF6123E}#1.0#0"; "ciaXPScroll.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5805
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   6435
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5805
  11.    ScaleWidth      =   6435
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin ciaXPScroll.XPHScroll XPHScroll3 
  14.       Height          =   255
  15.       Left            =   1515
  16.       TabIndex        =   5
  17.       Top             =   585
  18.       Width           =   3500
  19.       _ExtentX        =   6165
  20.       _ExtentY        =   450
  21.       LargeChange     =   2
  22.       Max             =   10
  23.    End
  24.    Begin ciaXPScroll.XPHScroll XPHScroll2 
  25.       Height          =   255
  26.       Left            =   1995
  27.       TabIndex        =   4
  28.       Top             =   990
  29.       Width           =   3500
  30.       _ExtentX        =   6165
  31.       _ExtentY        =   450
  32.       LargeChange     =   2
  33.       Max             =   10
  34.       Theme           =   1
  35.    End
  36.    Begin ciaXPScroll.XPHScroll XPHScroll1 
  37.       Height          =   255
  38.       Left            =   2460
  39.       TabIndex        =   3
  40.       Top             =   1560
  41.       Width           =   3500
  42.       _ExtentX        =   6165
  43.       _ExtentY        =   450
  44.       LargeChange     =   2
  45.       Max             =   10
  46.       Theme           =   2
  47.    End
  48.    Begin ciaXPScroll.XPVScroll XPVScroll3 
  49.       Height          =   3500
  50.       Left            =   1245
  51.       TabIndex        =   2
  52.       Top             =   945
  53.       Width           =   255
  54.       _ExtentX        =   450
  55.       _ExtentY        =   6165
  56.       LargeChange     =   2
  57.       Max             =   10
  58.    End
  59.    Begin ciaXPScroll.XPVScroll XPVScroll2 
  60.       Height          =   3500
  61.       Left            =   1695
  62.       TabIndex        =   1
  63.       Top             =   1230
  64.       Width           =   255
  65.       _ExtentX        =   450
  66.       _ExtentY        =   6165
  67.       LargeChange     =   2
  68.       Max             =   10
  69.       Theme           =   1
  70.    End
  71.    Begin ciaXPScroll.XPVScroll XPVScroll1 
  72.       Height          =   3500
  73.       Left            =   2115
  74.       TabIndex        =   0
  75.       Top             =   1830
  76.       Width           =   255
  77.       _ExtentX        =   450
  78.       _ExtentY        =   6165
  79.       LargeChange     =   2
  80.       Max             =   10
  81.       Theme           =   2
  82.    End
  83. Attribute VB_Name = "Form1"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. Private Sub XPHScroll1_BarMouseUp()
  89. Debug.Print "bar up"
  90. End Sub
  91. Private Sub XPHScroll1_Change()
  92. Debug.Print "XPVScroll1_Change"
  93. End Sub
  94. Private Sub XPHScroll1_Scroll()
  95. Debug.Print "XPVScroll1_Scroll"
  96. End Sub
  97.